;;; $Id: thread.sld 89 2012-07-24 06:55:36Z alan.watson.f $

(define-library (oaxaca thread)

  (export thread-sleep!
  	  thread-wait-until!)
  
  (import (scheme base))
  
  (import (srfi 18))
  
  (begin
  
    (define (thread-wait-until! test)
      (do ()
        ((test))
        (thread-yield!)))))
